home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / Jump backward.mps < prev    next >
Text File  |  2006-05-01  |  561b  |  23 lines
  1. INCLUDE '*.lng'
  2. = jump x bytes backward
  3.  
  4. option opt5, 'internal,30':= set an icon for this script
  5.  
  6. IF (CURRENTFILE == '')
  7.   END
  8. ENDIF
  9.  
  10. VAR offs LONGWORD
  11. IF (NOT REGREAD('HKEY_SETTINGS\scripts','Jump offset', @offs))
  12.   offs = INPUTNUMBER(__SJO1__)
  13.   REGWRITE 'HKEY_SETTINGS\scripts', 'Jump offset', offs
  14. ENDIF
  15.  
  16. = decrement absoluteposition of current file
  17. VAR abspos SIGQWORD fcur FILE
  18. fcur = FILEOPEN('::current')
  19. abspos = FILEGETPROP(fcur, 'AbsolutePosition')
  20. INC abspos, -offs
  21. FILESETPROP fcur, 'Absoluteposition', abspos
  22. FILECLOSE fcur
  23.